home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / dtype / RGBx_DT.lha / RGBx_DT / Install_RGBx_DT next >
Text File  |  1999-01-11  |  3KB  |  87 lines
  1. Set InstName        "Install_RGBx_DT"
  2. Set ClassName        "rgbx.datatype"
  3. Set DestClassesDir    "SYS:Classes/DataTypes/"
  4. Set SrcClassesDir    "Classes/DataTypes/"
  5. Set DevName1        "RGBN"
  6. Set DevName2        "RGB8"
  7. Set DestDevsDir        "DEVS:DataTypes/"
  8. Set SrcDevsDir        "Devs/DataTypes/"
  9. Set Ver            43
  10. Set Rev            1
  11.  
  12. If EXISTS $DestClassesDir$ClassName
  13.   Version >NIL: $DestClassesDir$ClassName FILE VERSION $Ver REVISION $Rev
  14.   If WARN
  15.     Set Text Old version of '$ClassName'*Nwas found in '$DestClassesDir'.*N*N
  16.     Set Text2 Would you like to backup the*Nold '$ClassName' class from*N'$DestClassesDir'?
  17.     Set Res `RequestChoice TITLE="$InstName" BODY="$Text$Text2" GADGETS="Yes|No backup|Stop installation"`
  18.     If $Res EQ 0
  19.       Skip Abort
  20.     Else
  21.       If $Res EQ 1
  22.         Set Temp ""
  23.         Set Temp `RequestFile DRAWER=$DestClassesDir FILE=$ClassName.old TITLE="Backup Old $ClassName As"`
  24.         If NOT $Temp
  25.           Skip Abort
  26.         EndIf
  27.         Copy >NIL: FROM $DestClassesDir$ClassName TO $Temp CLONE
  28.       EndIf
  29.     EndIf
  30.   Else
  31.     Set Text The latest version of '$ClassName'*Nis already installed in*N'$DestClassesDir'.
  32.     RequestChoice >NIL: TITLE="$InstName" BODY="$Text" GADGETS="OK"
  33.     Skip InstallDev
  34.   EndIf
  35. EndIf
  36. Copy >NIL: FROM $SrcClassesDir$ClassName TO $DestClassesDir CLONE
  37. Set Text Installed '$ClassName' in*N'$DestClassesDir'.
  38. RequestChoice >NIL: TITLE="$InstName" BODY="$Text" GADGETS="OK"
  39.  
  40. LAB InstallDev
  41. If EXISTS $DestDevsDir$DevName1
  42.   Set Text '$DevName1' DataType descriptor*Nis already installed in*N'$DestDevsDir'.
  43.   RequestChoice >NIL: TITLE="$InstName" BODY="$Text" GADGETS="OK"
  44. Else
  45.   Copy >NIL: FROM $SrcDevsDir$DevName1 TO $DestDevsDir CLONE
  46.   Copy >NIL: FROM $SrcDevsDir$DevName1.info TO $DestDevsDir CLONE
  47.   Set Text Installed '$DevName1' in*N'$DestDevsDir'.
  48.   RequestChoice >NIL: TITLE="$InstName" BODY="$Text" GADGETS="OK"
  49. EndIf
  50. If EXISTS $DestDevsDir$DevName2
  51.   Set Text '$DevName2' DataType descriptor*Nis already installed in*N'$DestDevsDir'.
  52.   RequestChoice >NIL: TITLE="$InstName" BODY="$Text" GADGETS="OK"
  53. Else
  54.   Copy >NIL: FROM $SrcDevsDir$DevName2 TO $DestDevsDir CLONE
  55.   Copy >NIL: FROM $SrcDevsDir$DevName2.info TO $DestDevsDir CLONE
  56.   Set Text Installed '$DevName2' in*N'$DestDevsDir'.
  57.   RequestChoice >NIL: TITLE="$InstName" BODY="$Text" GADGETS="OK"
  58. EndIf
  59.  
  60. LAB Rest
  61. Avail >NiL: FLUSH
  62. AddDataTypes REFRESH
  63.  
  64. Set Text Installation was successful.
  65. RequestChoice >NIL: TITLE="$InstName" BODY="$Text" GADGETS="OK"
  66. Skip UnsetAll
  67.  
  68. LAB Abort
  69. RequestChoice >NIL: TITLE="$InstName" BODY="Installation cancelled. Exiting." GADGETS="OK"
  70.  
  71. LAB UnsetAll
  72. Unset InstName
  73. Unset ClassName
  74. Unset DestClassesDir
  75. Unset SrcClassesDir
  76. Unset DevName1
  77. Unset DevName2
  78. Unset DestDevsDir
  79. Unset SrcDevsDir
  80. Unset Temp
  81. Unset Text
  82. Unset Text2
  83. Unset Res
  84. Unset Ver
  85. Unset Rev
  86. Quit
  87.